[求助]用VB编一个随机抽奖的程序

来源：百度知道 编辑：UC知道 时间：2024/05/18 08:10:11
老师前两天给留个作业题用VB编一个产生随机抽奖的程序，要求：
第一次点击按钮是产生一个随机数，第二次点击数字停止，如停止在24同时弹出个对话框显示“恭喜24号中奖”等待ING

在vb里新建一个工程
添加一个 Command 和 Label 控件 在Command1 的属性窗里把 Caption 设置成 开始

代码：
''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
Dim R As Integer
If Command1.Caption = "开始" Then
Command1.Caption = "停止"
Else
Command1.Caption = "开始"
End If

While Command1.Caption = "停止"
R = Int((36 * Rnd) + 1)
Label1.Caption = R
DoEvents
Wend

If R = 24 Then MsgBox "恭喜24号中奖"

End Sub
''''''''''''''''''''''''''''''''''''''''''''